unit WbNodeMainFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WbNodeFormUnit;

type
  TWbNodeMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WbNodeMainForm: TWbNodeMainForm;


implementation

{$R *.dfm}

procedure TWbNodeMainForm.FormCreate(Sender: TObject);
begin
  if (ParamCount>0) and (ParamStr(1)='pwb') then
  begin
    WbNodeFormArray_Count := 1;
    WbNodeFormArray[WbNodeFormArray_Count-1] := TWbNodeForm.Create(nil);
  end;
end;

end.
